

Il primo settimanale di software 
su carta per il tuo personal computer. 
Un appuntamento al quale non puoi 
mancare ogni venerdì in edicola. 
Nato in edizione unica, per i più 
diffusi homo e personal 
computer, dal 1 Aprile, 
allo stesso prezzo, saranno 
in edicola le versioni dedicate 
ai prodotti Sinclair (ZX81, 

ZX Spectrum e QL) e ai 
prodotti Commodore (VIC20, 

C16 e C64). 

In più un’edizione esclusiva 
per gli utenti dei personal 
Apple, gli home computer 
Texas e i nuovissimi sistemi MSX. 
Una grossa novità: la possibilità 
di abbonarsi dal 1 Aprile 1985 
al 31 Dicembre 1985 per ricevere 
38 numeri del settimanale 
comodamente a casa con un 
notevole risparmio. Chi si abbona 
riceverà ogni 15 giorni 2 numeri 


di PAPER So/f 
in anticipo rispetto 
all’uscita in edicola. 
Non perdere questa 
occasione! 

Compila subito 
il coupon qui 
riportato e spediscilo 
a: 

J.soft 

V.le Restelli, 5 
20124 MILANO 


I 


Tagliando abbonamento a PaperSofl da inviare m busta chiuso o: 
J sott V le Pestelli. 5 20124 MILANO 


□ Abbonamento a 38 numeri di PoperSofl al prezzo speciale di L. 30 000 anziché l 38 000 

□ edizione Sinclair (PS01 ) □ edizione Commodore (PC0Ì) D edizione Apple/T 199/ MSX (PV0Ì) 

D contanti allegati □ assegno allegato n. 

□ ho versato l'importo sul c.C.p. n 19445204 infestato o J Soft MILANO 

Cognome Nome 

Vio Città _____ 

CAP Prov. Dato _ 
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Firma 
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In diretta dalla HIT 
PARADE inglese 

Ogni mese in edicola una 
cassetta con un videoga- 
me originale, diretta- 
men te dall ’ Inghilterra , 
scelto tra quelli che si 
trovano in vetta alle clas- 
sifiche. 

Insieme al programma 
una recensione accurata 
ed approfondita con i 
consigli di un supere- 
sperto per diventare dei 
campioni. Ma oltre al gio- 
co, una serie di listati da 
battere direttamente sul 
vostro Commodore 64 e 
poi notizie dal mondo dei 
computer e la posta dei 
lettori. 

Questo è Jackson Soft 
oro: una pubblicazione 
unica perché ogni pro- 
gramma è il meglio che si 
può trovare sul mercato, 
perché le recensioni so- 
no vere e proprie guide al 
gioco, fatte dagli esperti 
della prestigiosa rivista 
Videogiochi, perché i li- 
stati sono autentici. 
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O COMMODORE 



SuperSinc e ' 
Super Commodore 
sono idee 


EDITRICE 




POSTA 

Il video del CBM 64 


Via il Basic 


Vorrei sapere se è possi- 
bile distaccare nel mio 
Commodore 64 l’inter- 
prete Basic e se c’è il ri- 
schio di rovinare qualco- 
sa. 

Alberto Agnelli 
Verona 

Quando si parla di home 
computer, si è quasi sem- 
pre di fronte a macchine 
che hanno la caratteri- 
stica di possedere un in- 
terprete Basic residente. 
Per programmare in un 
altro linguaggio, come 
presumibilmente vorre- 
sti fare tu, è dunque ne- 
cessario eliminare o su- 
perare l’interprete stes- 
so. Generalmente però 
questa operazione viene 
eseguita automatica- 
mente con il caricamento 
del nuovo interprete o 
dell’editor di un linguag- 
gio compilato. 

L’editor è quello stru- 
mento che permette di 
creare e correggere i pro- 
grammi prima della com- 
pilazione. Nessuna ne- 
cessità dunque di esclu- 
dere con apposite opera- 
zioni il Basic residente. 
Diverso invece il caso 
della programmazione in 
linguaggio macchina in 
cui routine in linguaggio 
macchina e istruzioni in 
Basic possono coesistere 
con qualche accorgimen- 
to. 


Mi hanno detto che il mio 
Commodore 64 possiede 
un circuito chiamato VIC 
II per la gestione del vi- 
deo. Ma la sua sigla ha a 
che fare con il computer 
VIC 20 oppure no e so- 
prattutto a cosa serve 
questo circuito? 

Angelo Ghioni, Pavia 


Il circuito integrato pre- 
sente nel tuo CBM 64 non 
ha nulla a che fare con il 
“piccolo” della Commodo- 
re. Il nome completo del 
circuito è infatti Video 
Interface Chip II e tra le 
sue funzioni ha quella di 
attingere le informazio- 
ni contenute in certe re- 
gioni della memoria e di 
utilizzarle per creare se- 
gnali che vengono modu- 
lati, amplificati e diretti 
verso il televisore o il 


monitor. Essi creano sul- 
lo schermo il riquadro 
circondato dal bordo co- 
lorato. Il VIC II è pro- 
grammabile e può dun- 
que funzionare in diver- 
si modi. Comunque, per 
una trattazione più esau- 
riente di questo argo- 
mento, ti consigliamo la 
lettura di un libro che 
tratta congiuntamente il 
problema della gestione 
delle grafica e del suono. 
Pubblicato dal Gruppo 
Editoriale Jackson, il suo 
titolo è “Commodore 64, 
la Grafica e il Suono”. Gli 
autori sono R. Bonelli, L. 
Pazzucconi, F. Racchi e 
G. Valerio, il libro ha 276 
pagine, è accompagnato 
da una cassetta che ri- 
porta molti dei program- 
mi descritti e listati nel 
volume e l’insieme costa 
34.000 lire. 
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— NOTIZIE 

GRAFICA IN CARTUCCIA 

Super Expander, grafica 
e suono alla portata di tutti 



Per venire incontro alle 
esigenze di chi intende 
utilizzare appieno le pos- 
sibilità grafiche e sonore 
del C. 64, la Commodore 
ha realizzato il Super 
Expander, una cartuccia 
che mette a disposizione 
del programmatore oltre 
venticinque nuovi co- 
mandi, rivolti soprattut- 
to al controllo della grafi- 
ca a colori e della sintesi 
sonora. 


Tramite i comandi GRA- 
PHIC, COLOR, DRAW, RE- 
GION, POINT, CIRCLE, 
PAINT E CHAR, chi usa il 
Super Expander può di- 
segnare infatti qualsiasi 
figura sullo schermo ad 
alta risoluzione, colorar- 
la e completarla con testi 
esplicativi. Il comando 
SOUND consente invece 
di far suonare note sin- 
gole o accordi, la cui al- 
tezza, intesità e durata 


vengono definite dai pa- 
rametri “V”, “S", “0” e 

urpr» 

Tramite apposite istru- 
zioni è possibile anche 
visualizzare le note nel 
momento in cui vengono 
suonate. 

Nella creazione di giochi 
o di programmi che fac- 
ciano uso di paddles, joy- 
sticks o penne luminose 
può essere utile anche te- 
nere sotto controllo, mo- 
mento per momento, la 
situazione di un qualsia- 
si punto sullo schermo o 
dei vari valori prove- 
nienti dagli strumenti di 
input. 

A questo scopo esiste nel 
Super Expander Commo- 
dore tutta una serie di 
istruzioni e comandi di 
“READ” (RCOL, RPOT, 
RJOY, eccetera) che con- 
sentono di ottenere que- 
sti valori senza ricorrere 
a complicati POKE. 

LA STAMPA 
DELL’EPSON 

Epson produce 
una stampante 
a matrice di 
punti 

collegabile al 
CBM 64. 

Si chiama Homewriter 10 
una nuova stampante 
Epson collegabile al Com- 
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NOTIZIE 

MILITARI DI LEVA 
E INFORMATICA. 


Tempo reale, Commodore Computer 
Center, ha dato il via ad 
un’interessante iniziativa rivolta 
ai militari di leva del Presidio 
bolognese 


modore 64 che raggiunge 
la velocità di stampa di 
100 caratteri al secondo. 
È del tipo a matrice di 
punti, ma, caratteristica 
interessante, può modifi- 
care il tipo di carattere 
usato, variarne le dimen- 
sioni, sottolinearlo o 
stamparlo in neretto per 
un totale di 160 differen- 
ti combinazioni di stam- 
pa. Inoltre può lavorare 
sia con modulo continuo 
che con foglio singolo. 

TWO 0N TWO 


Un’idea per utilizzare in 
maniera intelligente, 
proficua e divertente 
parte delle ore della libe- 
ra uscita. I militari pos- 
sono infatti iscriversi ad 
uno dei corsi di Tempo 
reale (via Centotrecento 
n. 18 a Bologna - tei. 
270701) beneficiando di 
un notevole sconto, pre- 
sentando alla segreteria 
del centro il loro tesseri- 
no militare. Gli argomen- 
ti dei corsi vanno dal Ba- 
sic a vari livelli, ai pro- 
grammi applicativi (ar- 


chivio, calcolo, scrittu- 
ra), alla grafica, alla mu- 
sica, al Logo. 
Un’iniziativa, questa, di 
sicuro interesse che 
rientra nell’attività di 
acculturazione informa- 
tica, che Tempo Reale 
svolge ormai da qualche 
tempo sul territorio e 
che presto potrà essere 
allargata a livello nazio- 
nale, grazie alla prossi- 
ma apertura di centri ge- 
melli nelle maggiori città 
italiane. 



One on one è stato il successo del 1984. Two on two 

sarà quello dell’85? 


One on one metteva in 
campo un giocatore con- 
tro l’altro che, all’ombra 
di un canestro, emulava- 
no le gesta di due famosi 
giocatori di basket. In 
Two on two i programma- 


tori della Epyx hanno in- 
vece voluto complicare la 
faccenda facendo scende- 
re in campo quattro gio- 
catori alla volta che si 
fronteggiano in quattro 
differenti attività sporti- 


ve. Palla a volo, football 
americano, calcio e base- 
ball sono le discipline in 
cui scontrarsi con un 
amico o giocare contro il 
computer. 
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—NOTIZIE 

LA FIERA 
DEI COMPUTER 


Un intero padiglione della Fiera di 
Milano completamente dedicato al 
computer in casa. 


Computer show è il nome 
del padiglione che all’in- 
terno della Fiera di Mila- 
no ospiterà esclusiva- 
mente l’informatica per i 


giovani, la scuola e la fa- 
miglia. Grande ubriaca- 
tura quindi di home com- 
puter, software didattico 
ed educativo e natural- 


BEAGH HEAD N. 2 


Prosegue l’avventura di Beach 
Head con un inseguimento 
all’ultimo sangue nella giungla 
tropicale 


La nuova versione di 
Beach Head ha per sotto- 
titolo “The dictator stri- 
kes back” ovvero il ditta- 
tore scappa. Una volta 
conquistata la formida- 
bile fortezza infatti, il 
dittatore non si dà per 


vinto e con una parte del- 
le sue truppe e un grup- 
petto di prigionieri di 
guerra si infila nel folto 
della giungla per sfuggi- 
re alla nostra invasione. 
Nostro compito è natu- 
ralmente quello di inse- 


mente videogiochi in 
quantità. Appuntamento 
dunque alla Fiera di Mi- 
lano tra il 19 e il 25 aprile 
1985. 


guire i fuggitivi e scon- 
figgerli senza provocare 
la morte dei nostri uomi- 
ni. Disegnato per Com- 
modore 64, Beach Head 
offre effetti sonori e voce 
umana nel corso del- 
l’azione. 
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OH QUANTI BEI COLORI 


NOTIZIE 


Schermo di 14”, uscita audio da 1,2W 
è il monitor a colori della 
Commodore. 



Si chiama 1702 il moni- 
tor a colori targato Com- 
modore, ideale da utiliz- 
zare in abbinamento con 
il CBM 64 oppure con un 


qualsiasi videoregistra- 
tore. Immagine stabilis- 
sima, definizione dei 
punti e dei colori perfet- 
ta, uscita audio di buona 


qualità il 1702 ha per di 
più un prezzo interes- 
sante: circa 700.000 lire 
secondo il listino della 
casa. 
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Con 7 note Bit , porti in casa il tuo maestro personale 
di musica che ti introduce alla teoria e al lessico 
musicali, ti insegna e ti fa fare pratica sulla tastiera, 
seguendoti passo passo nelle lezioni ... senza mai 
annoiarti. 

E puoi suonare subito, con l'aiuto del software 
"interattivo" della cassetta e della speciale tastiera 
musicale per il tuo 64. 

7 note Bit trasforma il Commodore 64 in uno 
strumento musicale sofisticato ed entusiasmante. 


LA TASTIERA COMPRESA 
NEL PRIMO FASCICOLO 


preparati con 7 note Bit , la nuova, fantastica opera 
che in soli 15 fascicoli quattordicinali (ciascuno 
corredato da una cassetta software per Commodore 64) 
ti insegna veramente la musica. 


IISKA SI IMPARA COSI. 








Il video del computer ti presenta tutto ciò che ti 
serve: un metronomo elettronico, il rigo musicale, 
la tastiera visualizzata con le note corrispondenti ai tasti 
...e potrai partecipare "dal vivo" alle session dei 
musicisti più famosi, suonando insieme a loro. 

Prenota in edicola 7 note Bit : una prestigiosa iniziativa 
editoriale nata dalTunione della esperienza informatico- 
divulgativa del Gruppo Editoriale Jackson 
con la competenza tecnico-musicale 


7 note Bit è il "programma musicale" 
più interessante che c'è: 
non perdere 
il primo numero. 

Pensa, compresa GRUPPO 

l i editoriale 

professionale per il mas? jackson 

tuo Commodore 64. 





Più di mille schermi e 
un’avventura mozzafiato tra 
mostri, caverne e pozze di olio 
bollente. È questo il soggetto di 
quello che è stato definito per la 
sua vastità e complessità il primo 
mega game, già lanciato in 
Inghilterra a raggiungere e 
sconvolgere tutti i primati di 
vendita. 



Anche i molti che non co- 
noscono alcuna parola di 
latino sapranno il signi- 
ficato di Quo Vadis, gra- 
zie ad una stupidissima 
barzelletta e alla leggen- 
da su un incontro tra S. 
Pietro e Gesù. 

Mai un titolo per un vi- 


deogioco è stato cosi az- 
zeccato. Provate a trovar- 
vi all’interno di un labi- 
rinto di più di 1000 
schermi e siamo certi che 
sarete perseguitati dal 
dilemma su dove anda- 
re. 

”Quo vadis” è stato anche 


un film realizzato a Cine- 
città nel pieno della col- 
laborazione Italia-U.S.A. 
negli anni ’50 e ultima- 
mente riproposto in una 
nuova versione televisi- 
va. 

Se il film era ambientato 
nella Roma imperiale al 
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tempo delle persecuzioni 
contro i cristiani e vede- 
va l’impiego di migliaia 
di comparse, questo vi- 
deogioco si svolge nel Me- 
dioevo ed è stato definito 
il primo mega-game. 
Complesso, coloratissimo, 
divertente e affascinante. 


Protagonista è un cava- 
liere che, armato di scu- 
do e lancia, perlustra gli 
immensi labirinti nei 
sotterranei dell’impero 
di Dark Lord, affronta i 
numerosi mostri nel ten- 
tativo di risolvere gli in- 
dovinelli e recuperare 


uno scettro. Il gioco è sta- 
to realizzato con una 
nuova tecnica chiamata 
“synergy” che garantisce 
l’incredibile numero di 
1012 schermi. 

In Inghilterra la casa 
produttrice del gioco, si- 
cura della difficoltà di 
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“Quo Vadis", ha deciso di 
assegnare al primo che 
riuscisse a risolverlo un 
vero e proprio scettro del 
valore di 10000 sterline. 
Non contenti hanno an- 


che promesso un premio 
di 30000 sterline nel caso 
che il gioco venisse risol- 
to dopo la vendita della 
centomillesima copia. 
Tutte le caratteristiche 


richieste da un videogio- 
co come la strategia, il 
senso dell’avventura, lo 
scontro con i nemici, la 
logica, gli indovinelli da 
risolvere, sono contenuti 
in questa vera e propria 
sfida. Il cavaliere, in una 
stupenda armatura aran- 
cione, nel suo viaggio ha 
uno scudo con una ener- 
gia che lo difende dagli 
attacchi dei nemici. 
Quando l’energia scende 
sotto il 40% diventa vio- 
la, verde all’ultimo sta- 
dio sotto il 15%. Vi aiuta- 
no, quando siete a corto 
di energia, delle casse 
sparse in alcune caverne 
e che incrementano la 
forza dello scudo da 20 a 
100, a seconda della pro- 
fondità del luogo in cui 
si trovano. Il gioco termi- 
na quando esaurite la 
forza o quando cadete in 
una delle fosse con l’olio. 
Non potete permettervi 
alcun errore perché ave- 
te una sola vita. 

Gli schermi 

Se l’estensione del gioco 
venisse tradotta su un 
horder-game (gioco da ta- 
volo) usando come unità 
di misura uno schermo 
da 14”, misurerebbe più 
di 30 metri quadrati. 
Cunicoli, caverne, pas- 
saggi stretti sono i prin- 
cipali componenti di que- 
sto immenso labirinto. 
Precisamente ci sono 118 
caverne con una gran- 
dezza variabile tra 1 
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schermo e mezzo e 13. So- 
no contenuti circa 115 
passaggi. Il più lungo mi- 
sura 14 schermi, mentre 
il più profondo è di 9. 

Lo scenario è arricchito 
dalla presenza di armatu- 
re, pentolini, torce e co- 
lonne. Pericolosissime 
sono invece le fosse con- 
tenenti olio bollente che 
possono farvi finire il 
gioco. 


I comandi 

II cavaliere viene guida- 
to dai movimenti del joy- 
stick che deve essere col- 
legato nella porta nume- 
ro 2. Lo sparo è continuo 
e segue i movimenti del 
vostro eroe. Il pulsante 
di sparo vi permette di 
fare fuoco senza muover- 
lo. Premendo il tasto “RE- 
TURN” il gioco andrà in 
pausa e appariranno al 
centro dello schermo il 
punteggio e l’energia del- 
lo scudo. Per riprendere 
il gioco bisogna ripreme- 
re “RETURN”. 

I nemici 

Nella vostra esplorazio- 
ne incontrate 38 varietà 
di mostri confinati nelle 
caverne o nei passaggi 
segnati da doppie porte. 

II numero varia da un 
minimo di 10 a un massi- 
mo di 60 nella caverna 
più grande. Per elimina- 
re i mostri sono richiesti 
da 1 a 3 spari. Se vi tocca- 




no riducono la forza da 3 
a 10 punti e non scompa- 
iono ma si rimaterializ- 
zano. Una volta uccisi 
tutti i mostri quella zona 
del gioco sarà libera per 


tutto il gioco. Bisogna fa- 
re attenzione anche alle 
fiammelle indistruttibili 
emesse da alcuni mostri 
e che possono ridurre la 
vostra forza da 3 a 8. 
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Il punteggio 

Per aumentare il vostro 
punteggio bisogna... 
camminare e impegnarsi 
a fondo. Eliminando i 
mostri ottenete dai 50 ai 
750 punti ognuno a se- 
conda del tipo. Le casse 
oltre ad incrementare 
l’energia, vi fruttano tra 
i 2000 e i 10000 punti. 
Ben 50000 punti li otte- 
nete quando trovate lo 
scettro. Inoltre se in 
qualsiasi momento ritor- 
nate al punto di parten- 
za, terminate il gioco, ma 
raddoppiate il punteg- 
gio. 


Consigli 

Come potete intuire ci 
vorrebbe un libro per 
aiutarvi a trovare la stra- 
da verso lo scettro. Un re- 
galo abbiamo pensato di 
farvelo allegando al gio- 
co una piantina con dise- 
gnate la prima zona a 
nord dove inizia il gioco 
e le altre in corrispon- 
denza dei tre punti cardi- 
nali. 

La prima scena mostra il 
vostro cavaliere aggrap- 
pato ad un’asta in attesa 
di iniziare. Scendete lun- 
go l’asta e troverete subi- 


to due corridoi, uno a de- 
stra e uno a sinistra. Di- 
rigendovi verso destra, 
l’avventura sarà molto 
meno impegnativa anche 
se sarà difficile il ritorno 
per raddoppiare il pun- 
teggio. Scegliendo il cor- 
ridoio di sinistra le diffi- 
coltà e i pericoli saranno 
subito impegnativi. 
Importante è imparare 
come abbandonare l’asta. 
Se spostate la leva del 
joystick lateralmente ca- 
dete nel vuoto senza po- 
ter intervenire più in al- 
cun modo e terminando 
in una fossa d’olio senza 


16 








■I 


t 


W 






conquistare un punto. 
Per saltare dovete muo- 
vere la leva in alto e ver- 
so la direzione scelta. In 
alcune caverne ci sono 
delle terrazze che vi pos- 
sono favorire nella risa- 
lita: dovete calibrare i 
vostri salti. Potete ri- 
schiare una caduta libe- 
ra nel vuoto ma questo 
può essere molto perico- 
loso perché non sapete 
dove andate ad atterrare. 
Importante è calibrare i 
salti anche per quando vi 
troverete ad attraversa- 
re le buche di olio vicine 
l’una all’altra. 
Nell’affrontare i mostri 
vi consigliamo molta pa- 


zienza. Innanzitutto ri- 
manete nelle vicinanze 
della doppia porta fino a 
quando non li avete eli- 
minati tutti. Questa por- 
ta speciale, infatti, pro- 
voca la comparsa o la 
scomparsa dei nemici. 
Appena entrate in una 
loro zona avete più tem- 
po per prendere la mira. 
Quando si avvicinano 
troppo tornate indietro 
facendoli scomparire. Ri- 
tornando nella stanza ri- 
compariranno i mostri e 
avrete ancora tempo per 
sparare. Con questa tec- 
nica impiegherete più 
tempo ma risparmierete 
energia preziosa. 


Istruzioni 
per caricare 

Battete: 


LOAD “QTJOVADIS” 

e premete 

return 

oppure premete il tasto 
SHIFT e il tasto RUN 
STOP e quindi fate parti- 
re il nastro. Grazie al 
“turbo-loader” il gioco 
sarà caricato in 3 minuti 
e potrete controllare 
l’andamento dell’opera- 
zione sul video. Al termi- 
ne, per iniziar il gioco do- 
vete premere “S”. ■ 
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LA BIBLIOTECA CHE FA TESTO 


GUIDA ALL’INPUT DEI PROGRAMMI SUL C64 


Notate che i listati contengono “parole” re premuto contemporaneamente al ta- 
racchiuse tra parentesi graffe . Tali sto COMMODORE. Inoltre, se tra paren- 
parole rappresentano caratteri di con- tesi si trova un carattere alfabetico “so- 
trollo come mostrato nel sottostante ri- litario”, questo dovrà essere premuto 
quadro. Se sono precedute da un nume- contemporaneamente al tasto CON- 
ro, questo indica il numero di volte che TROL. 

quel tasto deve essere premuto. Se il Con questo sistema di codifica, sarà 
simbolo è sottolineato deve essere pre- molto più agevole copiare i listati senza 
muto contemporaneamente a SHIFT faticose e dubbie interpretazioni di ca- 
mentre se è racchiuso da [( )] deve esse- ratteri grafici e di controllo del cursore 

o dei colori. 
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Listato 1. 1/ programma BASIC Death. 


0 

1 

2 

3 

4 
9 


REM 


********* 
********* 
********* 

REM ********* 


BY 

LUCA MARRAS 


REM ********************************* 
********* ********* 

REM ********* "DEATH" ********* 

********* 

********* 
********* 
********* 

********* ********* 

REM ********************************* 

POKE808 ,225: REM DI S INSERIMENTO DEL 
TASTO RUN STOP 

IO POKE53280 , 0 : POKE53281 , 0 : PRINT" [<LCLR> 
] ":V=53248:X=150:Y=140 : DIMDI $ (12,2) : POKE 
V+23, 4 

13 GA$="GAME OVER" : PRINT" [<9CRSR D> ] I < 1G 
RN>] VIDEOGAME FOR THE COMMODORE 64" 

15 POKEV+4 1 , 5 : X2=X : POKEV+29 , 12 : POKE204 3 , 
13 : POKEV+7 , 140 : POKEV+4 2 , 11 : POKEV+27 , 2 55 
17 DIMDI (62) : DIMD2 ( 62) :DIMD3(62) :POKEV+2 
1*0 

20 FORP= ITO 12 : RE ADDI $ (P, 0) : NEXT : POKEV+4 3 
» 4 

30 FORP=0TO62 : READDI (P) : POKE8 32+P , DI (P) : 
NEXT 

35 FORP=0TO62 :READD2 (P) : POKE896+P ,D2 (P) : 
NEXT 

37 FORP=0TO62 : READD3 ( P) : POKE960+P , D3 ( P) : 
NEXT 

38 FORP=lT012:READDI$ (P, 2) : NEXT : FORP= ITO 
9 : READN 1 ( P) ,N2(P) ,DU(P) : NEXT 

4 0 POKE204 2 , 13 : POKE204 3 ,15: POKE 2044, 15 

50 SI=54272: FORP=0TO2 : FL ( P+l) =SI+P*7:FH( 

P+l) =SI+P*7+1 :TL (P+l) =SI+P*7+2 

55 TH ( P+ 1 ) =SI+P*7+3:W(P+1) =SI+P* 7 + 4 : AA ( P 

+1) =SI+P*7+5:HH (P+l) =SI+P* 7+6: NEXT 

57 FORP= ITO 3 : POKEW ( P) , 0 : NEXT 

60 VL=SI + 24 : POKEVL, 15 : POKEAA ( 1) ,0*16+6:P 

OKEHH(l) , 0*16 + 0 : POKETL ( 2) ,15 

65 POKEFH ( 1) , 4 : POKEFL ( 1) , 90 : POKETH ( 2) ,15 

: POKEAA ( 2 ) , 0* 16 + 8 : POKEHH ( 2) ,0*16 + 0 

67 POKEFH (2) , 69 : POKEFL ( 2) , 157 : POKEAA ( 3) , 

0*16 + 10 : POKEHH ( 3) ,4*16 + 2 

70 POKETL (3) , 100 : POKETH ( 3) , 10 : POKEFL ( 3) , 
100 : POKEFH ( 3) ,20 

80 Q=0 : NT= 12: NS = 0:1 = 2: SG= 1 : UD = - 1 : RE= 5000 
: AU=0 

81 PRINT" (<1CLR>) [<21CRSR D> ] ( < 1 ARA> ] (C ) 
1984 L.M.S. r DESIGNED BY L. MARRAS" 

82 PRINT" (<1H0ME>) [<18CRSR D> ] ( < 1CYN> ] PU 
SH 'FI' TO BEGIN" : POKE198 , 0 

83 GOSUB14000 : GOSUBl 3000 :GOT01 5000 

84 GOTO 8 3 

85 GOSUB7000 

90 PRINT" ( < 1CLR> ] POKEW (3) ,0:POKEW(3) , 1 



Un divertente 
gioco 

direttamente 

dalla... 

Transilvania 


Death è un videogame re- 
datto interamente in BA- 
SIC. Nonostante questo 
la velocità di esecuzione 
è elevata. Come vedremo 
più avanti, infatti, abbia- 
mo utilizzato al massimo 
le capacità grafiche e so- 
nore del C 64, stando 
però attenti a non sacri- 
ficare la velocità, compo- 
nente fondamentale di 
ogni buon gioco. 

Il tema di questo video- 
game è piuttosto origina- 
le, avendo come prece- 
dente solo il Dracula del- 
la Imagic per la console 
Intellivision. In ogni ca- 
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so, non è mai stato sfrut- 
tato su di un personal. Si 
tratta, infatti, di aiutare 
un vampiro a superare 
delle vere e proprie piog- 
gie di nemici, rappresen- 
tate di volta in volta da 
teschi coloratissimi o 
tombe in technicolor! Il 
nostro povero vampiro, 
però, avrà anche un ami- 
co... un pipistrello che lo 
aiuterà a rifocillarsi. Ma 
c’è un inconveniente: 
questo pipistrello è di- 
spettoso e si diverte a 
sparire dallo schermo 
proprio quando c’è più 
bisogno di lui... Soprav- 
vivere sino alla fine di 
ogni livello non è facile 
come sembra: ve ne ac- 
corgerete giocando! 

Per superare il primo- li- 
vello, dovrete evitare lo 
scontro con i 50 teschi 
che salgono instancabil- 
mente verso l’alto. Fatto 
ciò, sarete festeggiati da 
un’allegra musichetta 
mentre due pipistrelli vi 
porteranno un bonus di 
ben 1000 punti. Al secon- 
do livello dovrete com- 
battere contro 600 tom- 
be... al terzo, i vostri ne- 
mici saranno 70 e cosi 
via. Alla fine di ogni li- 
vello avrete il consueto 
bonus. Esso è molto uti- 
le, poiché ogni 5000 pun- 
ti vi sarà regalata una vi- 
ta extra (la dotazione di 
partenza è di tre vite). 
Ogni volta che ne perdete 
una, saranno visualizza- 
ti il punteggio, il numero 
di vite rimaste e il nume- 


2 9 : FORP= ITO 10 : IFPEEK (V+31) =4THENK=K 

95 NEXT : PRINT" [ < 20CRSR D> ] " : POKEV+16 , 0 : P 

OKE198 , 0 :X= 150 :X2=X: POKEV+4 ,X2 

97 POKEV+21,4 

100 CO=INT (RND (0) *15+1) 

110 ONCOGOSUB30000, 30010, 30020,30030,300 
40,30050,30060,30070,30080,30090,30100 
115 IFCO< 12THEN130 

120 ONCO-11GOSUB30 110, 30120, 30130,30140 
130 SP=INT(RND (1) *31+1) 

140 FORP= 1TONT 
150 PRINTTAB (SP) ; 

155 GETA$ : IFA$C>" "THENGOSUB2000 

170 POKEV+4 , X2 : POKEV+ 5 , Y : POKEV+4 1 , INT (RN 

D (2) *15 + 1) 

175 IFPEEK (V+31) =4THEN8000 
177 POKEW ( 1 ) , 0 : POKEW ( 1 ) ,33 
180 PRINTDI$ ( P , 1+UD) : NEXT 
185 NS=NS+1 : IFNS=50+AUTHEN11000 
190 GOTOIOO 

1000 DATA” [<1RVS>] [<2CRSR R>] " 

1010 DATA” [<1RVS>] [ClCRSR R>] " 

1020 DATA" [<1RVS>] I [<1RVS OFF>]! 


1030 DATA" [<1RVS>] [<1CRSR R>] [ClCRSR R 
>] [ClCRSR R> ] " 

1040 DATA" [ClRVS>] [ClCRSR R>] [ClRVS 
OFF> ] [C1CHR$ (169) >] [C1CHR$ (223) >] [ClRVS 
>] " 

1050 DATA" [C1RVS>] [C2CRSR R>] " 

1060 DATA" [C1RVS>] [C2CRSR R>]![C2CRSR R 
>) [ClRVS OFF> ] ! " 

1070 DATA" [C1CHR$ (182) >] [ClRVS>] [Cl 
RVS OFF>] [C1CHR$ (181) >] " 

1080 DATA" " 

1090 DATA" " 

1100 DATA" " 

1110 DATA" " 

1500 DATAO, 0,0, 0,255, 0,6 3, 255, 252, 127, 25 
5,254,125,255,190 

1510 DATA126, 255, 126,127, 126, 254 ,124,189 

,62,124,219,62,31,255,252 

1520 DATAI 5, 255, 240, 7, 2 55, 224, 3, 66, 192,3 

,66,192 

1530 DATA3, 66, 192, 3, 66, 192, 1,0, 128, 1,255 
,128,0,126,0,0,0,0,0,0,0 

1600 DATAO, 60, 0,0 , 60,0,0,60,0,0,60,0,0,6 

0,0 

1610 DATA31, 2 55, 248, 63, 2 55, 252, 3 1,255, 24 
8,0,60,0,0,60,0 

1620 DATAO, 60, 0,0, 60,0, 0, 60, 0, 0, 60, 0, 8, 6 
0,16 

1630 DATA8, 60, 16, 28, 60, 56, 8, 60, 16, 8, 60,1 
6,8,60,16,8,60,16 

1700 DATAO, 0,0, 0,0, 0,0, 0,0, 0,0, 0,2 24, 24, 
7 

1710 DATA24 8, 60, 30, 2 52, 60, 62, 62, 60, 124, 6 




Seguito listalo Death. 

3,24,252,31,255,248 

1720 DATA31, 2 55, 24 8, 31, 2 55, 24 8, 7, 255, 224 
,7,255,224,3,231,192 

1730 DATAI, 195, 128, 1, 129, 128, 0, 0, 0, 0, 0, 0 
,0,0,0, 0,0,0 

1800 DATA" [ClRVS OFF>][<3CRSR R>][<1CHR 
$ ( 219 ) > ] " 

1810 DATA" [< lRVS OFF>][<3CRSR R>][<1CHR 
$ ( 1 9 4 ) > ] " 

1820 DATA" [ < lRVS OFF>][<2CRSR R>][<1CHR 
$ (213) >] (<2CHR$ ( 195) >] [<1CHR$ (201) >] " 
1830 DATA" [ < lRVS OFF>][<2CRSR R>][<1CHR 
$ (194) >] ** [ < 1CHR$ ( 194 ) >] " 

1840 DATA" [ < lRVS OFF>][<2CRSR R>][<1CHR 
$ ( 194 ) > ] [<1CHR$ (194) >) " 

1850 DATA" [ < lRVS OFF>][<2CRSR R>][<1CHR 
$ (194) > ] [<1CHR$ (194) >] " 

1860 DATA" [<1RVS>] [<1CRSR R> ] [< 1CHR$ ( 16 
9 ) > ] [<1CHR$ (223) >] " 

1870 DATA" [<1RVS>] [<1CHR$ (169) >] t 

<1CHR$ (223) >] " 

1880 DATA" [ < lRVS OFF> ] [ < 1CHR$ ( 204 ) > ] [ < 6 
CHR$ (175) >] [<1CHR$ (186) >] " 

1890 DATA" " 

1895 DATA" " 

1897 DATA" " 

1900 DATA2 1,2 37, 400, 17,103,400,21,237,40 
0,26,20,400 

1910 DATA29, 6 9, 100, 2 6,20, 100, 2 3, 59, 100, 1 

9,137,100,17,103,600 

2000 IFA$="L"THENK=- 10 :GOSUB2500 

2010 IFA$=" ; "THENK=+10 :GOSUB2500 

2020 X = X+K 

2030 IFX< 30THENX=X-K 
2035 X2=X 

204 0 IFX>255THENX2=X-255 : POKEV+16 , 21 : EN= 
1 : IFX2>35THENX=X-K : X2 = X-255 
2050 IFEN=lANDX< = 2 55THENX2=X : POKEV+4 , X2 : 
POKEV+16, 0:EN=0 

2060 RN= INT ( RND (2) *50+1) : IFRN=26THENGOSU 
B3000 

2070 IFRN=25THENGOSUB3200 
2075 IFA$<>"A"THEN2090 

2080 IFPEEK (V+30 ) >0THENGOSUB4000 :GOTO209 
0 

2085 
2090 
2100 
2500 
3000 
,12 
3100 
3200 
3210 
3220 
4000 


POKEW ( 3 ) ,129 
K=0 : GOSUB2500 
RETURN 

POKEW ( 2 ) , 0 : POKEW ( 2 ) ,65: RETURN 
POKEV+6 , INT ( RND (2) *220+30) :POKEV+21 

RETURN 

POKEV+21 , 4 : POKEW (3) , 129 :FORU = lTOlO 
IFPEEK ( V+31 ) =4THENK=K 
NEXT: RETURN 

Q=Q+20 : POKEW ( 3) ,0: POKEW (3) ,33 


ro di nemici che dovrete 
ancora, evitare. Al termi- 
ne del gioco, se avrete 
realizzato un record il 
computer chiederà il vo- 
stro nome, che apparirà 
assieme al vostro pun- 
teggio nello schermo di 
presentazione del gioco. 
Il movimento del vampi- 
ro è unicamente orizzon- 
tale, e viene comandato 
dalla tastiera attraverso 
i seguenti pulsanti: 

L = Sinistra 

; = Destra 

Inoltre viene utilizzato 
un altro tasto (“A”) per 
catturare il pipistrello. 
Esso va premuto ripetu- 
tamente quando vi trova- 
te sopra il pipistrello, e 
vi procurerà 20 punti ad 
ogni tocco. 

Vediamo ora come è orga- 
nizzato il programma. 

La linea 9 disinserisce il 
tasto RUN STOP. Questo è 
solo un accorgimento 
pratico per evitare un in- 
desiderato BREAK del 
programma. Se volete 
reinserire il RUN STOP 
basterà cancellare que- 
sta linea. 

Le linee da 10 a 70 prepa- 
rano 1 ’ esecuzione del gio- 
co e creano la grafica e gli 
sprite. Esse vengono ese- 
guite una sola volta (su- 
bito dopo il RUN). Hanno 
anche il compito di legge- 
re i DATA. 

Le linee da 80 a 97 prepa- 
rano lo schermo di pre- 
sentazione e mandano al- 
la subroutine 13000 - 
13070, che crea la scritta 
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Death è stampa il massi- 
mo punteggio. 

Le linee da 100 a 190 co- 
stituiscono il cuore del 
programma: controllano 
se si è premuto il tasto 
direzionale (nel caso 
mandano alla subroutine 
2000 - 2100), se c’è stata 
una collisione, e muovo- 
no i caratteri grafici ver- 
so l’alto. 

Le linee da 1000 a 1110 
creano il disegno dei te- 
schi. 

Le linee da 1500 a 1730 
creano i tre spri te del gio- 
co (vampiro, pipistrello e 
croci). 

Le linee da 1800 a 1897 
creano la figura delle 
tombe che compaiono nei 
livelli pari. 

Le linee 1 900 e 1910 crea- 
no la musichetta che ac- 
compagna il bonus alla 
fine di ogni livello. 

Le linee da 2000 a 2090 
costituiscono la subrou- 
tine che, dopo aver con- 
trollato quale tasto è sta- 
to premuto, muove il 
vampiro in senso oriz- 
zontale. Questa subrouti- 
ne gestisce anche la fun- 
zione del tasto “A”. Inol- 
tre, attraversola variabi- 
le casuale RN, stabilisce 
anche se il pipistrello de- 
ve apparire sullo scher- 
mo (subroutine 3000 - 
3100) o sparire (3200 - 
3220). 

La linea 2500 è una picco- 
la subroutine che genera 
un suono acuto se si pre- 
me un qualsiasi tasto. 
Questo suono è più lungo 


RETURN 

POKEV+21 , 0 :0C=1 : POKEW ( 2) 


4100 

7000 POKEV+21, 0:OC=1: POKEW (2) ,0:POKEW(2) 
,33 

7010 PRINT" [<1CLR>] [<1YEL>] [<22CRSR R>]( 
< 1RVS> ] STAGE"SG: PRINT 

7020 PRINT" [<22CRSR R> ][< 1ARA> ] READY !" 
7030 PRINT" [<1H0ME>] [<1BLU>] [ < 1CHR$ ( 207 ) 
>] [<19CHR$ (183) >) (<1CHR$ (208) >] " 

7035 PRINT" [<1CHR$ (165) >] SCORE:’ "Q 
7040 PRINT" [<1CRSR U>][<20CRSR R>]l<lCHk 
$ (167) >] " 

7045 PRINT" [<1CHR$ (204) >] [<19CHR$ (175) >] 
[<1CHR$ (186) >] " 

7046 PRINT" [<1ARA>] [<<1CHR$ (207) >] [C19CHR 
$ (183) >] [<1CHR$ (208) >] " 

7047 PRINT" [ < 1CHR$ (165) >] HI-SCORE: "HI 

7048 PRINT" [C1CRSR U>][<20CRSR R>][<1CHR 
$ ( 167) >] " 

7049 PRINT" [<1CHR$ (204) >] [< 19CHR$ ( 175) >] 
[<1CHR$ (186) >] " :PRINT" [<1CYN>] J<4CRSR D> 
] ":GOSUB13000:OC=0:POKEW(2) ,0 ‘ 

7050 FORP= 1T07000 : NEXT 

7060 POKE204 2 , 13 : POKE204 3 ,15 
7070 RETURN 

8000 POKEW (3) , 0 : POKEFH ( 3) ,9:P.OKEFL(3) ,25 

0 : POKEHH (3)’, 0*16 + 2: POKEW ( 3 ) ,129 

804 0 POKE204 2 , 14 : POKE204 3 , 14 : IFQ>RETHENR 

E=RE+5000: 1=1+1 :GOSUBl 2500 

8050 1 = 1-1 : IFI=-lTHENl0000 

8060 FORP= 200T020STEP - 20 : POKEW (2)^,0 : POKE 

FH ( 2) , P : POKEW ( 2) , 17 : FORU=lTO100 :NEXT 

8070 NEXT : POKEW ( 2 ) ,0:POKEFH(2) ,69 

8100 PRINT" [<1H0ME>] 

Il • 

8110 PRINT" 

: IFUD = - 1THENSK$= " SKULLS " 

8115 PRINT" 

" : IFUD = + lTHENSK$ = "TOMBS" 

8120 PRINT" [<1H0ME>] [<1RVS>] [<1PUR>] 
SCORE " , "LIFES " , SK$ 

8130 PRINTQ, , 1+1, 50+AU-NS 
8410 FORU=lTO3000 : NEXT 

8420 POKE204 2 , 13 : POKE204 3 , 15 : POKEFH (3) ,2 
0 : POKEHH ( 3) ,4*16 + 2 
8500 GOTO 90 

10000 FORP=250T010STEP-20 : POKEW (3) ,0:POK 
EFH ( 3 ) , P : POKEFL ( 3) ,P:POKEW<3) ,33 
10010 FORU= 1TO50 : NEXTU , P : POKEW ( 3) ,0:PRIN 
T" [ < 1PUR> ] " 

10020 FORP= 1T09 

L0030 PRINT" [<lHOME>] [C10CRSR D>][<15CRS 
R R> ] "MI D$ (GAS , 1, P) 

10040 FORU=lTO40 : NEXTU , P 

10045 PRINT" [<1H0ME>] [< 1RVS> ] SCORE"Q 

10050 FORP=lTO3000 :NEXT 

10060 IFQ>HITHENHI =Q: GOSUB1200 0 
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10065 POKEFL ( 3 ) , 100 : POKEFH ( 3) , 20:POKEHH( 
3) ,4*16+2: POKEV+21 , 0 
10070 GOTO 80 

11000 FORP= 1T03 : POKEW ( P) ,0:NEXT 
11010 PRINT” [< 1CLR>] [<1CYN>] " 

11020 FORP=lT09 : PRINTDI$ (P,0),,DI$(P,2) : 
NEXT 

110 30 POKEV+ 6 , 0 : POKE V+ 7 , 60 : POKEV+ 8 , 0 : POR 
EV+9 , 50 : POKEV+21 , : 2 4 

11040 FORP=OTOl50: POKEV+6 , P : POKEV+8 , P+10 


: NEXT 

11050 FORP=60T0200 : POKEV+7 , P: POKEV+9 , P-l 
0 : NEXT 

11060 PRINT" [<1H0ME>] [<21CRSR D>]"TAB(10 
)" [<1ARA>] BONUS [<1R.C.>] 1000 [<1ARA>]P0 

INTS " : 0=0+1000- 

11070 FORP=lT09 : POKEW ( 3) ,0:POKEFH(3) ,Nl( 
P) : POKEFL ( 3) ,N2(P) :POKEW(3) ,33 
11080 FORU=lTODU (P) : NEXT: NEXT 
11085 POKEHH(3) ,4*16+2 

11090 UD = -UD : SG=SG+1 : AU-AU+10 : NT=NT- 2 : IF 
NT< 8THENNT= 12 

11095 IFUD= 1ANDNT= 8THENNT=9 

11100 PRINT" [ < 1CLR> ] ":NS = 0: POKEV+21, 4 : PO 

KEW ( 3 ) , 0 : POKEV+7 ,14 0 : GOTO 8 5 

12000 PRINT" [<1CLR>] WHAT'S YOUR NAME?[<2 

CRSR D> ] " : HI $ = " " : TM= 0 : LT=0 : ID = 0 : POKEV+21 

, 0 : POKE198 , 0 

12010 GETA$ 

12020 TM=TM+1 : IFTM=4 000THENRETURN 

12030 IFA$=""THENl2010 

12035 IFASC ( A$ ) =13THENRETURN 

12040 IFASC ( A$ ) =20THENID= ID+1 : IFID<=LTTH 

ENPRI NTA$ ; :HI$=HI$+A$ :GOTO12010 

12050 IFASC (A$) =148ANDID>LTTHEN12010 

12055 IFA$ = " "THENHI $ = HI$+A$ : PRINTA$ ; :LT 

=LT+1 : IFLT= 1 5THENRETURN 

12057 IFA$ = " "THEN12010 

12060 IFASC ( A$ ) <650RASC(A$) >90THEN12010 
12070 LT=LT+1 :HI$=HI $+A$ : PRINTA$ ; :IFLT=1 
5THENRETURN 
12080 GOTO12010 

12500 POKE53280, 14 : : FORU=lTO300 :NEXT: POK 
E53280,0 :RETURN 
13000 IFOC=lTHENl3010 

13005 PRINT" [<1H0ME>] [<1RVS>] HI -SCORE : 

HI ,HI$ 

13010 PRINT" [<5CRSR D>]" 

13020 PRINT" [<1RVS>] [<1CHR$ (223) >] [< 

1CRSR R> ] [< 1CRSR R>] [<1CHR$ (169) >] 

[<1CHR$ (223) >] [<1CRSR R>] [<1CRSR R>) 


se il pulsante premuto è 
il tasto direzionale (“L” o 

u 

Le linee da 3000 a 3100 
stabiliscono in quale po- 
sizione deve apparire il 
pipistrello sullo scher- 
mo. 

Le linee 4000 e 41 00 fan- 
no aumentare il punteg- 
gio di 20 punti e genera- 
no un suono acuto (vedi 
meccanismo di gioco - 
funzione del tasto “A”). 
La subroutine 7000 - 
7070 crea lo schermo in 
cui sono visualizzati il 
punteggio della partita, 
il punteggio massimo e il 
numero del livello di gio- 
co. Questo schermo appa- 
re prima dell’ inizio di un 
nuovo livello. 

Le linee da 8000 a 8500 
determinano la perdita 
di una vita e, qualora 
questa fosse l’ultima ri- 
masta, mandano alla li- 
nea 10000, dove viene de- 
terminata la fine della 
partita. 

Le linee da 1 0000 a 1 0070 
determinano la fine della 
partita e, se il punteggio 
raggiunto è superiore al 
record registrato nella 
variabile HI, mandano al- 
la routine 12000 - 

12080. 

La linea 10070 manda il 
programma allo schermo 
di presentazione, per ini- 
ziare una nuova partita. 
Le 11000 - 11100 vengo- 
no eseguite alla fine di 
ogni livello, e provvedo- 
no a visualizzare il bo- 
nus di 1000 punti, ad a g- 
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giornare il punteggio e 
ad aumentare la difficol- 
tà per il livello successi- 
vo. Le linee 11070 e 
11080 suonano una mu- 
sichetta che sottolinea il 
bonus. 

La subroutine 12000 - 
12080 aggiorna le varia- 
bili HI e H$, dove sono re- 
gistrati il massimo pun- 
teggio e il nome del gioca- 
tore che l’ha realizzato. 
La linea 1250C colora di 
blu per pochi attimi il 
bordo dello schermo: 
questo significa che si è 
guadagnata una vita 
extra. 

Le linee comprese fra 
13000 e 13070 creano lo 
schermo di presentazio- 
ne con la scritta Death. 
Le linee 14000 e 14040 
generano un numero ca- 
suale in base al quale vie- 
ne modificato il colore 
della scritta Death nello 
schermo di presentazio- 
ne. 

le linee 15000 e 15010 
bloccano l’inizio del gio- 
co se non si preme il pul- 
sante U F1 ”. 

Le linee 30000 - 30140 
contengono 15 subrouti- 
ne in ognuna delle quali 
è memorizzato uno dei 15 
colori disponibili sul 
Commodore 64. Queste 
subroutine vengono uti- 
lizzate per la colorazione 
dei teschi, delle tombe e 
della scritta Death. 
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[ < 2CRSR R> ] " 

13030 PRINT" [<1RVS>] [<2CRSR R>] [<1CRS 
R R> ] [ < 4CRSR R> ] [<2CRSR R>] [<2CRSR R> 

] J [< 1RVS OFF> ] ! [<1RVS>] [<2CRSR R>] [<2 

CRSR R> ] " 

13040 PRINT" [<1RVS>] [<2CRSR R>] [ClCRS 
R R> ] [ < 2CRSR R> ] [C2CRSR R>) [C2CRSR 

R> ] ! [< 1RVS OFF> ] ! [<1RVS>] [<2CRSR R>] 

II 

13050 PRINT" [<1RVS>] [C2CRSR R>] [ClCRS 
R R> ] [C4CRSR R> ] [ < 2CRSR R>j ! [ClRVS 

OFF>] ! [<1RVS>] [C2CRSR R>] [C2CRSR R>] 


13060 
CHR$ ( 
SR R> 
FF>] 1 
13070 
14000 
14010 
0040, 
14020 
14030 
0 

14040 

15000 

15010 

30000 

30010 

30020 

30030 

30040 

30050 

30060 

30070 

30080 

30090 

30100 

30110 

30120 

30130 

30140 


PRINT" [<1RVS>] [ClRVS OFF>] [<1 
169) >] [C1RVS>] [ClCRSR R>] [ClCR 
] [C2CRSR R> ] [C2CRSR R>] ! [ClRVS 0 
[ C 1 R V S > ] [C2CRSR R>] [C2CRSR R> ] " 

RETURN > 

RN=INT (RND (1) *15+1) 

ONRNGOSUB30000, 30010, 30020, 30030,3 
30050,30060,30070,30080,30090,30100 
I FRN C 1 2THENRETURN 

ONRN- 11GOSUB301 10 , 30120,30130, 3014 


RETURN 
GETA$ : 
GOTO 8 5 
PRINT" 
PRINT" 
PRINT" 
PRINT" 
PRINT" 
PRINT" 
PRINT" 
PRINT" 
PRINT" 
PRINT" 
PRINT" 
PRINT" 
PRINT" 
PRINT" 
PRINT" 


IFA$<>" "THEN84 


[ C 1WHT> ] " 
[C 1RED> ] " 
[ C 1CYN> ] " 
[ C 1PUR> ] " 
[ C 1GRN> ] " 
[ C 1BLU> ] " 
[ C 1YEL> ] " 
[ C 1ARA> ) " 
[ C 1MAR> ] " 
[C1R.C.>] 
[C1G.1>] " 
[C1G.2>] " 
[C1V.O] " 
[ C 1AZZ> ] " 
[C1G.3>] " 


: RETURN 
: RETURN 
: RETURN 
: RETURN 
: RETURN 
: RETURN 
: RETURN 
: RETURN 
: RETURN 
; : RETURN 
: RETURN 
: RETURN 
: RETURN 
: RETURN 
: RETURN 


I tasti grafici e speciali sono stati racchiusi tra i 
simboli < >, all’interno di parentesi quadre e 
preceduti da un numero che specifica quante volte 
occorre digitare quel determinato carattere. Es. 
[<8CRSR D>], digitare per 8 volte il tasto di 
spostamento verso il basso del cursore. Per i carat- 
teri grafici viene indicato il codice ASCII corri- 
spondente; consultare il manuale per la conversio- 
ne. 


■ ■ .......... 
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Un tredici 
con il 

Commodore... 


ÌB 




FILE: TOTO PAG. 1 

★★a****************** 
********************* 

* * * * * 

** TOTOCALCIO ** 

* * 3Y * * 

** CERI ANI ALBERTO ** 

* * * * 

********************* 
********************* 

10 1 = 0 : N=0 : X = 0 

20 DIMP ( 1 3) ,A$ (1 3) ,S$ (1 3,3) 

30 POKE53280 , 5 

40 R$=" { 12 C}+{ 3 C } + { 3 C } + { 3 C}I<W>]” 


REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 


50 GOTO! 200 

100 REM ******************** 

REM * * 

REM * GENERA COLONNE * 

REM * * 

REM ******************** 

FORI = 1 TONR: P ( I ) =1 : NEXT 
X = NR 

GOSUB300 
P (X) =P (X) +1 
IFP (X) = 4THEN 1 90 
I FS$ (X,P (X) ) =" "THENl 90 
IFX<NRTHENFORI =X+1 TONR : P ( I) =1 : NEXT 
GOTO! 20 
X = X-1 

IFX=0THENRETURN 
GOTO 1 4 0 

REM ******************************* 
REM * * 

REM * CONTROLLO VALIDITÀ’ COLONNA * 
REM * * 

REM ******************************* 
N=0 : W=0 
FORI =1 TONR 
IFP (I) < > 1 THENN = N+1 
IFN>E2THENX = I : RETURN 
IFP(I) = 3THENW=W+1 
NEXTI 


1 01 
1 02 
1 03 
1 04 
1 1 0 
1 20 
1 30 
1 40 
1 50 
1 60 
1 70 
1 80 
1 90 
200 
210 

300 

301 

302 

303 

304 
310 
320 
330 
340 
350 
360 



Chi non ha mai sognato 
di fare un bel tredici al 
Totocalcio in modo da ri- 
solvere una buona parte 
dei propri problemi eco- 
nomici e riuscire final- 
mente a soddisfare i pro- 
pri desideri? 

Eccovi un programma 
che vi permetterà di uti- 
lizzare il Commodore 64 
per la compilazione della 
vostra schedina in base a 
condizioni da voi stessi 
impostate. 
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Non pensate però di rea- 
lizzare immediatamente 
una grossa vin cita (tu t te 
le schedine sembrano 
buone alla vigilia delle 
partite, ma il giorno do- 
po...) 

Ma vediamo in dettaglio 
cosa fa il programma. 
Appena fatto partire, il 
programma vi chiede di 
inserire il vostro prono- 
stico che va distribuito 
su tre colonne. La prima 
colonna rappresenta il 
pronostico base (solita- 
mente il risultato piu 
probabile di una certa 
partita), mentre le altre 
due sono gli “ errori ’ o 
sorprese. 

Successivamente inseri- 
rete il numero minimo e 
massimo di errori (risul- 
tati della seconda e terza 
colonna) nonché il nu- 
mero massimo di risulta- 
ti della terza colonna. 


370 
380 

390 

391 

392 

393 

394 
400 
410 

420 
430 

440 
450 

500 

501 

502 

FILE: TOTO PAG. 2 

503 REM * * 

504 REM ******************** 

510 PRI NTTAB ( 4 ) NR , " { 2 SPAZl}B{ 3 SPAZI} 
B { 3 SPAZI }B{ 3 SPAZI }B" 

520 PRI NT" {SU } "TAB (11) 

530 1=1 

540 PRINT" { 3 DES}" ; 

550 GOSUBl 1 50 : GETK$ : I FK$ = " "THEN550 
560 IFK$=" 1 "ORK$="X"ORK$=" 2"THEN600 
570 IFK$ = " {Fi }"ANDS$ (NR, 1 ) < > " " THENPRI NT" 
" :GOTO690 

580 IFK$ = " { F 3 } " ANDNR> 1 THENRETURN 

590 GOTO 5 50 

600 I FI = 1 THEN64 0 

610 FORW= 1 TOI- 1 

620 IFS$ (NR,W) =K$THEN550 

630 NEXT 

640 PRINTKS; 

650 S$ (NR, I ) =K$ 

660 1=1+1 
670 IFK4THEN540 
680 PRINT 
690 NR=NR+1 
700 IN=IN* ( I- 1 ) 

710 I FNR= 1 4THENPRI NT" { SU } " ; : RETURN 
720 GOTO 500 

800 REM ************************* 

801 REM * * 

802 REM * INPUT NUMERO ERRORI * 

803 REM * * 

804 REM ************************* 

810 I FI > 1 THENPRI NT: GOTO830 

820 PRINT" {SU}" 

830 PRI NTR$ : PRINT 

840 K$ = " " ; INPUT" NUMERO ERRORI MINIMO" ;K$ 
850 E1=VAL(K$) 

860 PRINT 




IFN<El THENRETURN 
I FW>MXTHENRETURN 

REM ****************************** 

REM * * 

REM * INSERIMENTO COLONNA VALIDA * 

REM * * 

REM ****************************** 
V=V+1 

FOR 1=1 TONR : A$ (I ) =A$ ( I ) +S$ (I ,P (I) ) :NEX 
T 

CO=CO+1 

IFCO- INT (CO/ 4 ) * 4 = OTHENFORI = 1 TONR : A$ (I 
)=A$(I)+" " : NEXT 
I FCO=24THENGOSUBl 000:CO=0 
RETURN 

REM ******************** 

REM * * 

REM * INPUT SCHEDINA * 


W- 
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870 K$="": INPUT" NUMERO ERRORI MASSIMO";K$ 
880 E2 = VAI. ( K$ ) 

890 PRINT: PR I NT" NUMERO MASSIMO DI SEGNI" 
900 K$ = "".: INPUT" DELLA TERZA COLONNA" ; K$ 
910 I FK$ = " "THENMX=NR- 1 :GOTO930 
920 MX= VAL ( K$ ) 

930 PRINT 
940 RETURN 

1000 REM *************************** 

1001 REM * * 

1002 REM * STAMPA COLONNE VALIDE * 

1003 REM * * 

1004 REM *************************** 

1010 PRINTTAB (1 1 )" {RVS} PREMI UN TASTO" : PR 

INT 

1020 GETK$ : IFK$=" "THENl 020 

1 030 PRINTTAB (6) " [<1 >] TROVATE" V'COLONNE V 
ALIDE {YEL} " : PRINT 
1040 FORI = 1 TONR 
1050 I F I < = 9THENPRI NT" " ; 

1060 PRI NTI " { 2 SPAZ I } " A$ ( I ) 

1070 A$ ( I ) = " " 

1080 NEXT 

FILE: TOTO PAG. 3 

1090 PRINT: PRINT 
1100 RETURN 

1150 PRINT"{RVS} {SIN}"; : FORW=l TO60 : NEXT 
1160 PRINT" {OFF} {SIN} ";: FORW=l TO70 : NEXT 
1170 RETURN 
1 200 NR= 1 : 1 N= 1 

1210 PRINT" {CLR} {GIU' } {YEL} { 3 SPAZI }<Fl> 
{ 2 SPAZI }PER FINIRE UNA VARIANTE" 
1220 PRINT" { 3 SPAZI }<F3>{ 2 SPAZI }PER FI 
NIRE" :PRINT: PRINT 
1230 PRINT" RIGA NUMERO ^PRONOSTICO 
1240 PRINTR§ 

1250 GOSUB500 

1260 IFI >1 ANDNR< 1 4THENNR=NR+1 : IN=IN* (1-1 ) 

1270 GOSUB800 

1280 INPUT" VA BENE" ; K$ 

1 290 I FK$ = " NO " THENRUN 

1300 NR=NR- 1 

1310 PRINT 

1320 GOSUBl 00 

1330 IFCO>OTHENGOSUB1 000 

1340 PRINT" SISTEMA INTEGRALE: " IN"COLONNE" 

1 350 PRINT: PRINT" SISTEMA RIDOTTO :" V'COLON 
NE" 

1360 PRINT: PRINT"COSTO SISTEMA RIDOTTO" V* 
350"LIRE" 

1370 END 




• - . ; - '-fijismz ? * - 


Data la conferma, il pro- 
gramma passa ad elabo- 
rare i dati. Fra tutte le co- 
lonne del sistema inte- 
grale esso seleziona e 
stampa unicamente 
quelle che soddisfano al- 
le condizioni imposte. 

Il programma vi permet- 
te quindi di risparmiare 
delle colonne senza in- 
taccare (a condizioni ri- 
spettate) la possibilità di 
realizzare il tredici. È 
inoltre possibile aggiun- 
gere, con poche modifi- 
che, altre opzioni quali 
ad esempio l’uscita su 
stampante o raggiunta 
di altre condizioni per la 
scelta delle colonne vali- 
de. 
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IN TUTTE LE TASCHE». 



*•' ** *. : in&Qc 




Vivere 

col Persona] Computer* 


£ ?B*V 


Dentro e fuori la scatola 


J? W:' 


fflarrrr — !? •• a ^-*>--;~;?-‘--- 


GRUPPO 

HTORIALf 

JACKSON 


QUADERNI JACKSON 

DI PERSONAL COMPUTER 
la ^Biblioteca* firmata dagli esperti 
Gruppo Editoriale Jackson 


mese 




edicola 


PER TUTTE LE TASCHE 





L'informatica di base 
in una Collana di volumi 
monografici indirizzati a: 


CHI INIZIA 


regolazione affascinante e 
avventurosa del mondo dei Personal. 

particolari tematiche 


\h d^tammSnfdi linguaggio 
di hardware. 

1 T 


tutto quel che c'è da sapere 
sullìnformatìca, le sue applicazioni 
sue prospettive. 


• DENTRO E FUORI LA 
SCATOLA 


OGNI MESE 
IN EDICOLA 


VOLUMI 
A SOLE LIRE 


CIASCUNO 


SONO DISPONIBILI 


• VIVERE COL PERSONAL 
COMPUTER 





La prima 
puntata delle 
fantastiche, 

\ inedite 
disavventure 
di Wally Wèek 


il prossimo, esclusivo 
JACKSON SOFT 
SERIE ORO 
per COMMODORE 64 

con PYJAMARAMA 



Il gioco è bello se c’è una sfida! 

I mega games JACKSON SOFT SERIE ORO, 
ancora sconosciuti al pubblico italiano, sono tuttora 
un rebus irrisolvibile. Comincia tu! Inviaci il 
punteggio massimo raggiunto e (se vuoi) una tua 
fotografia. 

Se la tua performance con QUO VADIS sarà stata 
davvero super, allora entrerai nella classifica di 
JACKSON SOFT SERIE ORO, pubblicata ogni 
quattordici giorni nella tua Rivista. 

Questa è una mega sfida, per mega campioni e 
y riserva mega sorprese. Aspettiamo! 


Per partecipare alla " sfida al campione' 1 completa, ritaglia 0 invia 
questo tagliando in busta chiusa a: 

Gruppo Edito rial* Jackson - Redazione di Jackson Soft 
Vìa Recaseli ini, 12-20124 Milano 

Dichiaro che con il gioco Q\ io vAD-S ho raggiunto if seguente 
punteggio (aite gara Pof3mt& deila videete) 

Noma 


Cognome 

Via ~ 

CAP Città Prov. 

t/niscl, se vuoi, una fu* foto formolo tessera. 




